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a Gateway to the U Mich Geography server 

Jim Davis <davis@dri. Cornell. edu> 

• Mail folder: ISSOaliy^SlArchives 

f":; r'o^:.f:.,^-f,-:-- --00 ^ 

Subject: a Gateway to the U M-i nh r^^ 

y ^u Liie u Mich Geography server 

WWW doc id. It ianoresthr" 1 ^^P^^^^s one argument, a 

then passes those'totL server r^ '^'"^^'^ ^^^ — ^ w-^s, 
returned by the server (that T^. "' "°^ ^""^ ^he data 
but you can understind the output ^"P"^^"'^"^ ^^^ to be done, 

To use this, you would need to have an httd 
someplace where you can attach thH ^"/^^^ ^^^^er running 
the very simple HTTP ser:er fuse L'e bu't'th' ^^V^^^^^ 
- already documented in the WW^on!!:; docu:e;ta:io^^^' 



Best wishes 



# ! /usr/local/bin/perl 

# Gateway from WWW to the Gporrr;=.r.hw ^^ 



# Jim Davis, Nov 17 1992 

# To do: 



# This expects one argument, a document Tn th^ u , 

# are sent to the Geography server th! " .. ^^^''''^ keywords 

# e.g. /geography/ignored/whLaLs;itLca^nv -r'h'^ '^"°^^'- 

# As an extra bonus feature if tY^J'flllV^ ~l ^thaca,ny 

# then the entire arg line Is passed ^.k^"^ ""^^ ""^ question marks 

# convenient when you al^^ ^^.P^fed to the server. This is 

you call thrs from the shell rather than from WWW. 

if ($#ARGV == -1) { 

die "Usage: geography-gateway [WWW-DOCUMENT- rn i i^ ^- ,^ 
An example WWW document id is /geoaranhvV.! h i location] \ 
If calling from shell ._,. /^, ^^^°^^^Phy?washington, dc 

m sneii, omit the /geography? part . \nStopped"; } 

$usage = "<ISINDEX>\n\ 
<TITLE>Geography Server</TITLE>\n\ 
<h2>Type geographic name in Index. </h2>\n\ 
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# for debugging 

# print "<LISTING>\n"/ 

# print "ARGV = $#ARGV\n"; 

# for ($i = 0; $i < $#ARGV+1; $i++) { 

# print "Arg $i is $ARGV[$i] \n"; } 

# print "</LISTING>"; 

# exit; 



@parts=split (•/', $ARGV[0]); # separate pathname from keywords. 

$last = $parts[$#parts] ; # the last path component has keys 

$i=index($last, "?") ; # are there any keywords in there'? 

if ($i == -1) 

{@keywords = @ARGV; } # none, probably called from shell 

else 

{@keywords=split ( ' \? ' , substr ($last, $i) ) ; 
$parts [$#parts] = substr ($last, 0,$i) ; } 



# if no keywords, tell user how to type them. 

if ($#keywords == -1) { 
print $usage; 
exit; 

}; 



# debugging 

# print "<LISTING>\n 

# parts are @parts\n 

# keywords are @ keywords \n 

# </LISTING>\n"; 

# exit; 

# otherwise contact the server 

$host == "martini, eecs .umich. edu"; 
$port - 3000; 

$sockaddr = 'S n a4 x8'; # packing format 

$hostname = ^ hostname \- # where I am calling from 

chop($hostname) ; # get rid of trailing CR 

($name, $aliases, $type, $len, $myaddr) = gethostbyname ($hostname) ; 
$here = pack ($sockaddr, 2, 0, $myaddr) ; 

($name, $aliases, $type, $len, $destaddr) = gethostbyname {$host y ; 

#print ("Name - ", $name ," " addr = ", $destaddr, "\n"); 
if ($destaddr eq "") {die "No such host: $host. Stopped";} 

$there= pack ($sockaddr, 2, $port, $destaddr) ; 

($name, $aliases, $protocol) = getprotobyname ( ' tcp ' ) ; 
socket {$S, 2, 1, $protocol) || die "socket: $!"; 
bind ($S, $here) || die "bind: $!"; 
connect ($S, $there) |i die "connect: $!"; 
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select ($S) ; 

$1=1; # force output 

print (@keywords , "\n") ; 

print "quit \n" ; 

select (STDOUT) ; 

print "<LISTING>\n"; 

while (<$S>) { print; } 

print "</LISTING>\n"; 

select ($S) ; 

exit; 

# This is the format of info returned by the geo server. 

# in case you decide you want to parse it. 

# <city naine> 

# 1 <county FIPS code> <county name> 

# 2 <state/province abbreviation> <state/province name> 

# 3 <nation abbreviation> <nation naiue> 

# A <telephone area code> 

# E <elevation in feet above mean sea level> 

# F <feature code> <feature name> 

# L <latitude DD MM SS X> <longitude DDD MM SS X> 

# P <1980 census population> 

# R <remark> 

# T <time zone> 

# Z <postal ("ZIP") code> 

# Example 

# Ithaca 

# 1 36109 Tompkins 

# 2 NY New York 

# 3 US United States 

# R county seat 

# F 45 Populated place 

# L 42 26 26 N 76 29 49 W 

# P 28732 

# E 814 

# Z 14850 14851 14852 14853 14882 
# 

# . 
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